home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra / pcbsysop.zip / PCBSYSOP.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-12-20  |  11KB  |  571 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   TSTRING002(10)
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     Cls
  34.     INTEGER003 = 1
  35.     INTEGER001 = 0
  36.     FOpen 1, PPEPath() + PPEName() + LangExt(), 0, 0
  37.     FGet 1, STRING004
  38.     FGet 1, STRING003
  39.     FClose 1
  40.     INTEGER004 = Len(STRING004)
  41.     STRING005 = String(STRING003)
  42.     INTEGER006 = Date()
  43.     If ((INTEGER006 >= 34675) && (STRING003 <> INTEGER004 * 15 + 122765 - 11490)) Then
  44.         Cls
  45.         AnsiPos 0, 1
  46.         Print "@X0F────────────────────────────────────────────────────────────────────────────────@X07"
  47.         AnsiPos 0, 2
  48.         Print "@X1F                      PCBSysop v1.00 IS NOT YET REGISTERED                      @X07"
  49.         AnsiPos 0, 3
  50.         Print "@X08────────────────────────────────────────────────────────────────────────────────@X07"
  51.         AnsiPos 0, 6
  52.         Print "         THIS IS NOT A FREWARE APPLICATION, AND SHOULD BE REGISTERED.           "
  53.         AnsiPos 0, 7
  54.         Print "                THAT IS WHY THIS PROGRAM HAS RESPONDED THIS WAY.                "
  55.         AnsiPos 0, 8
  56.         Print "    AS A RESULT OF THIS OCCURANCE, MANY OF THE FEATURES INCLUDED WITH THIS      "
  57.         AnsiPos 0, 9
  58.         Print "                          APPLICATION WILL NOT RESPOND.                         "
  59.         AnsiPos 0, 11
  60.         Print "                  N.E.G ENCOURAGES YOU TO REGISTER THIS PRODUCT.                "
  61.         AnsiPos 0, 12
  62.         Print "@X8B                                 DELAYED ACCESS                                 @X07"
  63.         AnsiPos 0, 20
  64.         Print "@X08────────────────────────────────────────────────────────────────────────────────@X07"
  65.         AnsiPos 0, 21
  66.         Print "@X17                     (C) Copyright 1995 Net Equinox Gateway                     @X07"
  67.         AnsiPos 0, 22
  68.         Print "@X0F────────────────────────────────────────────────────────────────────────────────@X07"
  69.         INTEGER005 = 8
  70.         While (INTEGER005 <= 72) Do
  71.             AnsiPos INTEGER005, 15
  72.             Print "@X01▒"
  73.             Delay 2
  74.             Print "" + "@X01▒"
  75.             INTEGER005 = INTEGER005 + 1
  76.         EndWhile
  77.         INTEGER005 = 72
  78.         While (INTEGER005 > 7) Do
  79.             AnsiPos INTEGER005, 15
  80.             Print "@X0B▒"
  81.             Delay 2
  82.             Print "" + "@X0B▒"
  83.             INTEGER005 = INTEGER005 - 1
  84.         EndWhile
  85.         Cls
  86.     Endif
  87.     AnsiPos 68, 1
  88.     Print "@X0B" + TimeAp(Time())
  89.     AnsiPos 5, 1
  90.     Print Month(Date())
  91.     AnsiPos 7, 1
  92.     Print "/"
  93.     AnsiPos 8, 1
  94.     Print Day(Date())
  95.     AnsiPos 10, 1
  96.     Print "/"
  97.     AnsiPos 11, 1
  98.     Print Year(Date())
  99.     AnsiPos 0, 1
  100.     Print "@X1F╔══            ═══════════      @X1EPCBSysop v1,00      @X1F════════════             ══╗"
  101.     AnsiPos 0, 2
  102.     Print "║                                                                              ║"
  103.     AnsiPos 0, 3
  104.     Print "║   @X70  REMEMBER, IF YOU ARE CONNECTED VIA A REMOTE DEVICE TURN ON DOORWAY   @X10▄   @X1F║"
  105.     AnsiPos 0, 4
  106.     Print "║    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   @X1F║"
  107.     AnsiPos 0, 5
  108.     Print "║   @X4F    Log Off BBS    @X10▄      @X4F      PCBEdit      @X10▄      @X4F    @X4C-RESERVED      @X10▄   @X1F║"
  109.     AnsiPos 5, 5
  110.     Print "@X3F    Log Off BBS    @X1F"
  111.     AnsiPos 0, 6
  112.     Print "║    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   @X1F║"
  113.     AnsiPos 0, 7
  114.     Print "║   @X4F     PCBSysMgr     @X10▄      @X4F    PCBFIDOutil    @X10▄      @X4F    @X4C-RESERVED      @X10▄   @X1F║"
  115.     AnsiPos 0, 8
  116.     Print "║    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   @X1F║"
  117.     AnsiPos 0, 9
  118.     Print "║   @X4F     PCBFiler      @X10▄      @X4F      PCBText      @X10▄      @X4F    @X4C-RESERVED      @X10▄   @X1F║"
  119.     AnsiPos 0, 10
  120.     Print "║    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   @X1F║"
  121.     AnsiPos 0, 11
  122.     Print "║   @X4F     PCBSetup      @X10▄      @X4F     @X4C-RESERVED     @X10▄      @X4F    @X4C-RESERVED      @X10▄   @X1F║"
  123.     AnsiPos 0, 12
  124.     Print "║    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   @X1F║"
  125.     AnsiPos 0, 13
  126.     Print "║   @X4F    DROP TO DOS    @X10▄      @X4F     @X4C-RESERVED     @X10▄      @X4F    @X4C-RESERVED      @X10▄   @X1F║"
  127.     AnsiPos 0, 14
  128.     Print "║    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀       ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   @X1F║"
  129.     AnsiPos 0, 15
  130.     Print "║══════════════════════════════════════════════════════════════════════════════║"
  131.     AnsiPos 0, 16
  132.     Print "║     @X17Registered To:                                License No.:               @X1F║"
  133.     AnsiPos 0, 17
  134.     Print "║   @X30   Use the Cursor Keys to select option and ENTER to execute option    @X10▄   @X1F║"
  135.     AnsiPos 0, 18
  136.     Print "║    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀   @X1F║"
  137.     AnsiPos 0, 19
  138.     Print "║                                @X1EPress ESC to exit@X1F                             ║"
  139.     AnsiPos 0, 20
  140.     Print "╚══════════════════  (C) Copyright 1995 Net Equinox Gateway  ══════════════════╝@X07"
  141.     AnsiPos 22, 16
  142.     Print "@X13" + STRING004
  143.     If ((INTEGER006 >= 34675) && (STRING003 <> INTEGER004 * 15 + 122765 - 11490)) Then
  144.         AnsiPos 66, 16
  145.         Print "@X1BDEMO"
  146.     ElseIf ((INTEGER006 >= 34675) && (STRING003 == INTEGER004 * 15 + 122765 - 11490)) Then
  147.         AnsiPos 66, 16
  148.         Print "@X13" + STRING003
  149.     Endif
  150.     STRING001 = ""
  151.     While (STRING001 <> Chr(13)) Do
  152.         STRING001 = Upper(Inkey())
  153.         Color 31
  154.         AnsiPos 66, 1
  155.         Print TimeAp(Time())
  156.         AnsiPos 5, 1
  157.         Print Month(Date())
  158.         AnsiPos 7, 1
  159.         Print "/"
  160.         AnsiPos 8, 1
  161.         Print Day(Date())
  162.         AnsiPos 10, 1
  163.         Print "/"
  164.         AnsiPos 11, 1
  165.         Print Year(Date())
  166.         TSTRING002(1) = "@X3F    Log Off BBS    "
  167.         TSTRING002(2) = "@X4F    Log Off BBS    "
  168.         TSTRING002(3) = "@X3F     PCBSysMgr     "
  169.         TSTRING002(4) = "@X4F     PCBSysMgr     "
  170.         TSTRING002(5) = "@X3F     PCBFiler      "
  171.         TSTRING002(6) = "@X4F     PCBFiler      "
  172.         TSTRING002(7) = "@X3F     PCBSetup      "
  173.         TSTRING002(8) = "@X4F     PCBSetup      "
  174.         TSTRING002(9) = "@X3F    DROP TO DOS    "
  175.         TSTRING002(10) = "@X4F    DROP TO DOS    "
  176.         If ((STRING001 == "DOWN") && ((INTEGER001 == 0) && (INTEGER003 == 1))) Then
  177.             AnsiPos 5, 5
  178.             Print TSTRING002(2)
  179.             AnsiPos 5, 7
  180.             Print TSTRING002(3)
  181.             INTEGER001 = INTEGER001 + 1
  182.             STRING001 = ""
  183.         Endif
  184.         If ((STRING001 == "DOWN") && ((INTEGER001 == 1) && (INTEGER003 == 1))) Then
  185.             AnsiPos 5, 7
  186.             Print TSTRING002(4)
  187.             AnsiPos 5, 9
  188.             Print TSTRING002(5)
  189.             INTEGER001 = INTEGER001 + 1
  190.             STRING001 = ""
  191.         Endif
  192.         If ((STRING001 == "DOWN") && ((INTEGER001 == 2) && (INTEGER003 == 1))) Then
  193.             AnsiPos 5, 9
  194.             Print TSTRING002(6)
  195.             AnsiPos 5, 11
  196.             Print TSTRING002(7)
  197.             INTEGER001 = INTEGER001 + 1
  198.             STRING001 = ""
  199.         Endif
  200.         If ((STRING001 == "DOWN") && ((INTEGER001 == 3) && (INTEGER003 == 1))) Then
  201.             AnsiPos 5, 11
  202.             Print TSTRING002(8)
  203.             AnsiPos 5, 13
  204.             Print TSTRING002(9)
  205.             INTEGER001 = INTEGER001 + 1
  206.             STRING001 = ""
  207.         Endif
  208.         If ((STRING001 == "UP") && ((INTEGER001 == 4) && (INTEGER003 == 1))) Then
  209.             AnsiPos 5, 13
  210.             Print TSTRING002(10)
  211.             AnsiPos 5, 11
  212.             Print TSTRING002(7)
  213.             INTEGER001 = INTEGER001 - 1
  214.             STRING001 = ""
  215.         Endif
  216.         If ((STRING001 == "UP") && ((INTEGER001 == 3) && (INTEGER003 == 1))) Then
  217.             AnsiPos 5, 11
  218.             Print TSTRING002(8)
  219.             AnsiPos 5, 9
  220.             Print TSTRING002(5)
  221.             INTEGER001 = INTEGER001 - 1
  222.             STRING001 = ""
  223.         Endif
  224.         If ((STRING001 == "UP") && ((INTEGER001 == 2) && (INTEGER003 == 1))) Then
  225.             AnsiPos 5, 9
  226.             Print TSTRING002(6)
  227.             AnsiPos 5, 7
  228.             Print TSTRING002(3)
  229.             INTEGER001 = INTEGER001 - 1
  230.             STRING001 = ""
  231.         Endif
  232.         If ((STRING001 == "UP") && ((INTEGER001 == 1) && (INTEGER003 == 1))) Then
  233.             AnsiPos 5, 7
  234.             Print TSTRING002(4)
  235.             AnsiPos 5, 5
  236.             Print TSTRING002(1)
  237.             INTEGER001 = INTEGER001 - 1
  238.             STRING001 = ""
  239.         Endif
  240.         If ((STRING001 == "RIGHT") && ((INTEGER001 == 0) && (INTEGER003 == 1))) Then
  241.             AnsiPos 31, 5
  242.             Print "@X3F      PCBEdit      "
  243.             AnsiPos 5, 5
  244.             Print TSTRING002(2)
  245.             INTEGER003 = 2
  246.             INTEGER001 = 0
  247.             STRING001 = ""
  248.         Endif
  249.         If ((STRING001 == "DOWN") && ((INTEGER001 == 0) && (INTEGER003 == 2))) Then
  250.             AnsiPos 31, 5
  251.             Print "@X4F      PCBEdit      "
  252.             AnsiPos 31, 7
  253.             Print "@X3F    PCBFIDOutil    "
  254.             INTEGER003 = 2
  255.             INTEGER001 = 1
  256.             STRING001 = ""
  257.         Endif
  258.         If ((STRING001 == "UP") && ((INTEGER001 == 1) && (INTEGER003 == 2))) Then
  259.             AnsiPos 31, 7
  260.             Print "@X4F    PCBFIDOutil    "
  261.             AnsiPos 31, 5
  262.             Print "@X3F      PCBEdit      "
  263.             INTEGER003 = 2
  264.             INTEGER001 = 0
  265.             STRING001 = ""
  266.         Endif
  267.         If ((STRING001 == "LEFT") && ((INTEGER001 == 0) && (INTEGER003 == 2))) Then
  268.             AnsiPos 31, 5
  269.             Print "@X4F      PCBEdit      "
  270.             AnsiPos 5, 5
  271.             Print TSTRING002(1)
  272.             INTEGER003 = 1
  273.             INTEGER001 = 0
  274.             STRING001 = ""
  275.         Endif
  276.         If ((STRING001 == "RIGHT") && ((INTEGER001 == 1) && (INTEGER003 == 1))) Then
  277.             AnsiPos 31, 7
  278.             Print "@X3F    PCBFIDOutil    "
  279.             AnsiPos 5, 7
  280.             Print TSTRING002(4)
  281.             INTEGER003 = 2
  282.             INTEGER001 = 1
  283.             STRING001 = ""
  284.         Endif
  285.         If ((STRING001 == "LEFT") && ((INTEGER001 == 1) && (INTEGER003 == 2))) Then
  286.             AnsiPos 31, 7
  287.             Print "@X4F    PCBFIDOutil    "
  288.             AnsiPos 5, 7
  289.             Print TSTRING002(3)
  290.             INTEGER003 = 1
  291.             INTEGER001 = 1
  292.             STRING001 = ""
  293.         Endif
  294.         If ((STRING001 == "DOWN") && ((INTEGER001 == 1) && (INTEGER003 == 2))) Then
  295.             AnsiPos 31, 9
  296.             Print "@X3F      PCBText      "
  297.             AnsiPos 31, 7
  298.             Print "@X4F    PCBFIDOutil    "
  299.             INTEGER003 = 2
  300.             INTEGER001 = 2
  301.             STRING001 = ""
  302.         Endif
  303.         If ((STRING001 == "UP") && ((INTEGER001 == 2) && (INTEGER003 == 2))) Then
  304.             AnsiPos 31, 9
  305.             Print "@X4F      PCBText      "
  306.             AnsiPos 31, 7
  307.             Print "@X3F    PCBFIDOutil    "
  308.             INTEGER003 = 2
  309.             INTEGER001 = 1
  310.             STRING001 = ""
  311.         Endif
  312.         If ((STRING001 == "RIGHT") && ((INTEGER001 == 2) && (INTEGER003 == 1))) Then
  313.             AnsiPos 5, 9
  314.             Print TSTRING002(6)
  315.             AnsiPos 31, 9
  316.             Print "@X3F      PCBText      "
  317.             INTEGER003 = 2
  318.             INTEGER001 = 2
  319.             STRING001 = ""
  320.         Endif
  321.         If ((STRING001 == "LEFT") && ((INTEGER001 == 2) && (INTEGER003 == 2))) Then
  322.             AnsiPos 5, 9
  323.             Print TSTRING002(5)
  324.             AnsiPos 31, 9
  325.             Print "@X4F      PCBText      "
  326.             INTEGER003 = 1
  327.             INTEGER001 = 2
  328.             STRING001 = ""
  329.         Endif
  330.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 0) && (INTEGER003 == 1))) Then
  331.             Bye
  332.         Endif
  333.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 1) && ((INTEGER003 == 1) && ((INTEGER006 >= 34675) && (STRING003 <> INTEGER004 * 15 + 122765 - 11490))))) Then
  334.             Color 15
  335.             Cls
  336.             AnsiPos 0, 1
  337.             Print "@X0F────────────────────────────────────────────────────────────────────────────────@X07"
  338.             AnsiPos 0, 2
  339.             Print "@X1F                      PCBSysop v1.00 IS NOT YET REGISTERED                      @X07"
  340.             AnsiPos 0, 3
  341.             Print "@X08────────────────────────────────────────────────────────────────────────────────@X07"
  342.             AnsiPos 0, 6
  343.             Print "         THIS IS NOT A FREWARE APPLICATION, AND SHOULD BE REGISTERED.           "
  344.             AnsiPos 0, 7
  345.             Print "                THAT IS WHY THIS PROGRAM HAS RESPONDED THIS WAY.                "
  346.             AnsiPos 0, 8
  347.             Print "       AS A RESULT OF THIS OCCURANCE, @X0BPCBSysMgr @X07IS NOT AVAILABLE TO YOU.        "
  348.             AnsiPos 0, 9
  349.             Print "                  N.E.G ENCOURAGES YOU TO REGISTER THIS PRODUCT.                "
  350.             AnsiPos 0, 11
  351.             Print "@X8B                               RETURNING TO BBS                                 @X07"
  352.             AnsiPos 0, 20
  353.             Print "@X08────────────────────────────────────────────────────────────────────────────────@X07"
  354.             AnsiPos 0, 21
  355.             Print "@X17                     (C) Copyright 1995 Net Equinox Gateway                     @X07"
  356.             AnsiPos 0, 22
  357.             Print "@X0F────────────────────────────────────────────────────────────────────────────────@X07"
  358.             INTEGER005 = 8
  359.             While (INTEGER005 <= 72) Do
  360.                 AnsiPos INTEGER005, 15
  361.                 Print "@X01▒"
  362.                 Delay 2
  363.                 Print "" + "@X01▒"
  364.                 INTEGER005 = INTEGER005 + 1
  365.             EndWhile
  366.             INTEGER005 = 72
  367.             While (INTEGER005 > 7) Do
  368.                 AnsiPos INTEGER005, 15
  369.                 Print "@X0B▒"
  370.                 Delay 2
  371.                 Print "" + "@X0B▒"
  372.                 INTEGER005 = INTEGER005 - 1
  373.             EndWhile
  374.             Cls
  375.             End
  376.         Endif
  377.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 1) && ((INTEGER003 == 1) && ((INTEGER006 >= 34675) && (STRING003 == INTEGER004 * 15 + 122765 - 11490))))) Then
  378.             Cls
  379.             Shell 1, INTEGER002, PPEPath() + "pcbsm.bat", ""
  380.         Endif
  381.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 2) && ((INTEGER003 == 1) && ((INTEGER006 >= 34675) && (STRING003 <> INTEGER004 * 15 + 122765 - 11490))))) Then
  382.             Color 15
  383.             Cls
  384.             AnsiPos 0, 1
  385.             Print "@X0F────────────────────────────────────────────────────────────────────────────────@X07"
  386.             AnsiPos 0, 2
  387.             Print "@X1F                      PCBSysop v1.00 IS NOT YET REGISTERED                      @X07"
  388.             AnsiPos 0, 3
  389.             Print "@X08────────────────────────────────────────────────────────────────────────────────@X07"
  390.             AnsiPos 0, 6
  391.             Print "         THIS IS NOT A FREWARE APPLICATION, AND SHOULD BE REGISTERED.           "
  392.             AnsiPos 0, 7
  393.             Print "                THAT IS WHY THIS PROGRAM HAS RESPONDED THIS WAY.                "
  394.             AnsiPos 0, 8
  395.             Print "       AS A RESULT OF THIS OCCURANCE, @X0BPCBFiler @X07IS NOT AVAILABLE TO YOU.        "
  396.             AnsiPos 0, 9
  397.             Print "                  N.E.G ENCOURAGES YOU TO REGISTER THIS PRODUCT.                "
  398.             AnsiPos 0, 11
  399.             Print "@X8B                               RETURNING TO BBS                                 @X07"
  400.             AnsiPos 0, 20
  401.             Print "@X08────────────────────────────────────────────────────────────────────────────────@X07"
  402.             AnsiPos 0, 21
  403.             Print "@X17                     (C) Copyright 1995 Net Equinox Gateway                     @X07"
  404.             AnsiPos 0, 22
  405.             Print "@X0F────────────────────────────────────────────────────────────────────────────────@X07"
  406.             INTEGER005 = 8
  407.             While (INTEGER005 <= 72) Do
  408.                 AnsiPos INTEGER005, 15
  409.                 Print "@X01▒"
  410.                 Delay 2
  411.                 Print "" + "@X01▒"
  412.                 INTEGER005 = INTEGER005 + 1
  413.             EndWhile
  414.             INTEGER005 = 72
  415.             While (INTEGER005 > 7) Do
  416.                 AnsiPos INTEGER005, 15
  417.                 Print "@X0B▒"
  418.                 Delay 2
  419.                 Print "" + "@X0B▒"
  420.                 INTEGER005 = INTEGER005 - 1
  421.             EndWhile
  422.             Cls
  423.             End
  424.         Endif
  425.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 2) && ((INTEGER003 == 1) && ((INTEGER006 >= 34675) && (STRING003 == INTEGER004 * 15 + 122765 - 11490))))) Then
  426.             Cls
  427.             Shell 1, INTEGER002, PPEPath() + "pcbfiler.bat", ""
  428.         Endif
  429.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 3) && ((INTEGER003 == 1) && ((INTEGER006 >= 34675) && (STRING003 <> INTEGER004 * 15 + 122765 - 11490))))) Then
  430.             Color 15
  431.             Cls
  432.             AnsiPos 0, 1
  433.             Print "@X0F────────────────────────────────────────────────────────────────────────────────@X07"
  434.             AnsiPos 0, 2
  435.             Print "@X1F                      PCBSysop v1.00 IS NOT YET REGISTERED                      @X07"
  436.             AnsiPos 0, 3
  437.             Print "@X08────────────────────────────────────────────────────────────────────────────────@X07"
  438.             AnsiPos 0, 6
  439.             Print "         THIS IS NOT A FREWARE APPLICATION, AND SHOULD BE REGISTERED.           "
  440.             AnsiPos 0, 7
  441.             Print "                THAT IS WHY THIS PROGRAM HAS RESPONDED THIS WAY.                "
  442.             AnsiPos 0, 8
  443.             Print "       AS A RESULT OF THIS OCCURANCE, @X0BPCBSETUP @X07IS NOT AVAILABLE TO YOU. "
  444.             AnsiPos 0, 9
  445.             Print "                  N.E.G ENCOURAGES YOU TO REGISTER THIS PRODUCT.                "
  446.             AnsiPos 0, 11
  447.             Print "@X8B                               RETURNING TO BBS                                 @X07"
  448.             AnsiPos 0, 20
  449.             Print "@X08────────────────────────────────────────────────────────────────────────────────@X07"
  450.             AnsiPos 0, 21
  451.             Print "@X17                     (C) Copyright 1995 Net Equinox Gateway                     @X07"
  452.             AnsiPos 0, 22
  453.             Print "@X0F────────────────────────────────────────────────────────────────────────────────@X07"
  454.             INTEGER005 = 8
  455.             While (INTEGER005 <= 72) Do
  456.                 AnsiPos INTEGER005, 15
  457.                 Print "@X01▒"
  458.                 Delay 2
  459.                 Print "" + "@X01▒"
  460.                 INTEGER005 = INTEGER005 + 1
  461.             EndWhile
  462.             INTEGER005 = 72
  463.             While (INTEGER005 > 7) Do
  464.                 AnsiPos INTEGER005, 15
  465.                 Print "@X0B▒"
  466.                 Delay 2
  467.                 Print "" + "@X0B▒"
  468.                 INTEGER005 = INTEGER005 - 1
  469.             EndWhile
  470.             Cls
  471.             End
  472.         Endif
  473.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 3) && ((INTEGER003 == 1) && ((INTEGER006 >= 34675) && (STRING003 == INTEGER004 * 15 + 122765 - 11490))))) Then
  474.             Cls
  475.             Shell 1, INTEGER002, PPEPath() + "pcbsetup.bat", ""
  476.         Endif
  477.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 4) && (INTEGER003 == 1))) Then
  478.             Cls
  479.             KbdStuff "9" + Chr(13) + "Y" + Chr(13)
  480.             Cls
  481.         Endif
  482.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 0) && (INTEGER003 == 2))) Then
  483.             Cls
  484.             Shell 1, INTEGER002, PPEPath() + "pcbedit.bat", ""
  485.         Endif
  486.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 1) && (INTEGER003 == 2))) Then
  487.             Cls
  488.             Shell 1, INTEGER002, PPEPath() + "fidoutil.bat", ""
  489.         Endif
  490.         If ((STRING001 == Chr(13)) && ((INTEGER001 == 2) && (INTEGER003 == 2))) Then
  491.             Cls
  492.             Shell 1, INTEGER002, PPEPath() + "mkpcbtxt", ""
  493.         Endif
  494.         If (STRING001 == Chr(27)) Then
  495.             End
  496.         Endif
  497.     EndWhile
  498.  
  499. ;------------------------------------------------------------------------------
  500. ;
  501. ; Usage report (before postprocessing)
  502. ;
  503. ; ■ Statements used :
  504. ;
  505. ;    4       End
  506. ;    17      Cls
  507. ;    4       Color 
  508. ;    52      Goto 
  509. ;    79      Let 
  510. ;    133     Print 
  511. ;    42      If 
  512. ;    1       FOpen 
  513. ;    1       FClose 
  514. ;    2       FGet 
  515. ;    8       Delay 
  516. ;    6       Shell 
  517. ;    1       KbdStuff 
  518. ;    1       Bye
  519. ;    125     AnsiPos 
  520. ;
  521. ;
  522. ; ■ Functions used :
  523. ;
  524. ;    9       *
  525. ;    39      +
  526. ;    17      -
  527. ;    92      ==
  528. ;    6       <>
  529. ;    4       <=
  530. ;    4       >
  531. ;    9       >=
  532. ;    42      !
  533. ;    73      &&
  534. ;    1       Len(
  535. ;    1       Upper()
  536. ;    15      Chr()
  537. ;    7       Date()
  538. ;    2       Time()
  539. ;    2       Year()
  540. ;    2       Month()
  541. ;    2       Day()
  542. ;    2       TimeAp()
  543. ;    1       Inkey()
  544. ;    1       String()
  545. ;    7       PPEPath()
  546. ;    1       LangExt()
  547. ;    1       PPEName()
  548. ;
  549. ;------------------------------------------------------------------------------
  550. ;
  551. ; Analysis flags : S
  552. ;
  553. ; S - Shell to DOS ■ 5
  554. ;     This may be normal if the PPE need to execute an external command,
  555. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  556. ;     or usefull (sorting, maintenance,...). Check!
  557. ;     ■ Search for : SHELL
  558. ;
  559. ;------------------------------------------------------------------------------
  560. ;
  561. ; Postprocessing report
  562. ;
  563. ;    0       For/Next
  564. ;    9       While/EndWhile
  565. ;    33      If/Then or If/Then/Else
  566. ;    0       Select Case
  567. ;
  568. ;------------------------------------------------------------------------------
  569. ;                 AEGiS Corp - Break the routines, code against the machines!
  570. ;------------------------------------------------------------------------------
  571.